(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    114267,       2567]
NotebookOptionsPosition[    111386,       2469]
NotebookOutlinePosition[    111905,       2491]
CellTagsIndexPosition[    111818,       2486]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<@\>\"", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.507441160015625*^9, 3.507441165765625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "::", "\<\"wrsym\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Symbol \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\[FormalA]\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" is Protected.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", ButtonNote -> \
\\\"Clear::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.507934048265625*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "::", "\<\"wrsym\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Symbol \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\[FormalB]\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" is Protected.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", ButtonNote -> \
\\\"Clear::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.507934048265625*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "::", "\<\"wrsym\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Symbol \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\[FormalC]\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" is Protected.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", ButtonNote -> \
\\\"Clear::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.507934048265625*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \\\\\\\"\\\
\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Clear :: \
\\\"wrsym\\\"\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" will \
be suppressed during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.507934048328125*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"<<", "Data`"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"<<", "BISfit`"}], ";"}]}], "Input",
 CellChangeTimes->{{3.507441168421875*^9, 3.507441177015625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "ColeP"}]], "Input",
 CellChangeTimes->{{3.507441230265625*^9, 3.507441240984375*^9}}],

Cell[BoxData[
 StyleBox["\<\"get the resistances(r0,r\[Infinity],\[Alpha])\"\>", 
  "MSG"]], "Print", "PrintUsage",
 CellChangeTimes->{3.507441241875*^9},
 CellTags->"Info3507470041-2587848"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"Cole", " ", "plot", " ", "and", " ", "fit", " ", "compare"}], " ", 
  "*)"}]], "Input",
 CellChangeTimes->{{3.507441086390625*^9, 3.507441094875*^9}, {
  3.5074418700625*^9, 3.5074418736875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"data0", "=", 
   RowBox[{"mData", "[", "1", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ff", "=", 
   RowBox[{"Freq32", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "data0", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pr", "=", 
   RowBox[{"data0", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "All", ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "6"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"m", ",", "n", ",", "r"}], "}"}], "=", 
  RowBox[{"BISffit", "[", "pr", "]"}]}]}], "Input",
 CellChangeTimes->{{3.507441148265625*^9, 3.507441148734375*^9}, {
  3.507441185265625*^9, 3.5074412199375*^9}, {3.507441286*^9, 
  3.507441330734375*^9}, {3.50744145478125*^9, 3.507441516234375*^9}, {
  3.50744160071875*^9, 3.507441623984375*^9}, {3.507441683359375*^9, 
  3.50744168853125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "32", ",", "16"}], "}"}]], "Output",
 CellChangeTimes->{
  3.507441297578125*^9, {3.50744145696875*^9, 3.507441465046875*^9}, {
   3.50744149815625*^9, 3.50744152*^9}, 3.507441620765625*^9, 
   3.5074416893125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"61.05540910164342`", ",", 
   RowBox[{"-", "11.436157142736363`"}], ",", "24.986086072802003`"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.507441297578125*^9, {3.50744145696875*^9, 3.507441465046875*^9}, {
   3.50744149815625*^9, 3.50744152*^9}, 3.507441620765625*^9, 
   3.507441689328125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"fitted", " ", "one"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"p1", "=", 
    RowBox[{"ParametricPlot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"r", " ", 
          RowBox[{"Cos", "[", "th", "]"}]}], "+", "m"}], ",", 
        RowBox[{
         RowBox[{"r", " ", 
          RowBox[{"Sin", "[", "th", "]"}]}], "+", "n"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"th", ",", 
        RowBox[{
         RowBox[{"\[Pi]", "/", "2"}], "-", "1.1"}], ",", 
        RowBox[{
         RowBox[{"\[Pi]", "/", "2"}], "+", "1.1"}]}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"35", ",", "85"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "16"}], "}"}]}], "}"}]}]}], "]"}]}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{
  3.5074410840625*^9, {3.507441127921875*^9, 3.50744113084375*^9}, {
   3.5074415345625*^9, 3.507441591890625*^9}, 3.507441697734375*^9, {
   3.5074417945625*^9, 3.507441802578125*^9}, {3.507441859265625*^9, 
   3.50744187925*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwl2Hk4lOsbB3DJGsmWYzsolHlH9krLab7WLDPvDIZWLSokFUVRCZFUCinp
KPvWIkqRFLIURZFyRMkWjj0ttOD3nOv311yf65nnnfu5n+1+Z4HbfsddggIC
ArKzBAT++7ztxzXMe8OHQOcbiYdmD8vKXoQ1Gv5ng0aHlbsLy56FL1t7r4nY
f5u1TOzdsmilRQUPXhPHOW0/VZlZVjUdf66sgdjcUFC8O5Zltmsur7qOj3I9
zRd555+wNLb91r5TxYdGWUS7kHgLK8krdHTOPeKNGac0tAZZQwkB/sXn+Mjp
PGB6KXOKdde695mFB3lePn/JfjURmEpX7lZj8fFGxKnt5Ly5uNiQFD0kzUea
qEN1BFMWm8859O/udkLHlYduZr7zcezgwNmLeU5IKLilHNGiiB37xLvMjjhB
OmCyVkpcFX5mGQ99rZ3QIB8SHdiuhqtDTg9UJZ1Q2pz79me3BkY0AsLLmhzx
VFTVbJy5EOEblHe9+tsRglSC0h8bNaGmPDxhuckR8YfWH794VgtrRih/XzVH
uP9rP6QYp43rTxqmJlodMKTqUZKbsAjDSV3j9GUHuEjmL40PWQzVQSyXWeeA
+I/pz03MdSBfxbpkK+2AjhRbuXm/dEAJpbmw5jnglnPS4ugpHdhvV5+zVMoB
dNO12rkCDAxmnF2rIemA/mluoYgwA001En9+F3WA2A4Pgz4pBuZdKVqRPMOD
TkhxvNtCBoTDVx3oG+GhVOZzjrkNA7uCjDMd6nnwEa4aS49mQMB+dfaSOh48
j+wI+xrLgNQil0TxFzyYyg67WlxkID2wd8OTGh6k2rwG2hIYEOtNNDSo4mF9
bO2WyVQGcvr28iVKeMh6J5neXsBAprVnflEODyIVNyS3NZP4ruSLXcjmQSPt
T//AFgbaolz43lk87Jz5sTC2lYG62Z+qNTJIvMvT6ZJ2BtwXG8idTubhqXF2
989eEq9tytZ18Tywi7S/LppgwL5KRHwwjIeV94v1jRQotD6VN6s9wYOaEW+r
hCKF3lXL92WH8jBer9LVpUQhR7sze0cwD1rDMp1Rf1KYldV+pe0IDw3Piyvq
tCgcn9ELrfXlIWCpjuhvIwresrlp17by4H1diKFIU/hy/2TMkS2kf5ZKagmX
QvqjfL91rjxQSiFerg4U8mu0NWQ28VBuPTmWyKcgXJEmFO7Cg+JKpRdCmyhc
O54i6cnh4Uz+v9knPSiEvA/awlhFxjOgm2kRTEHzH6dqxZU8NHdtLEgIoaD2
8rWW2Aoenu/9y3YolAJfZ6i+dxkPQ28nJKLDKTi/31+bbsTDiWTGUMVpCn1e
zd6qFA+Obt1SPXEUftsLJYkp8XC8VipRIpvC+9NFjIk/yPNHZc4Z5lBA9x95
nxRI/85EYZfrFO4FCmRXyPOwcMuCM3/fJPlc7sw+Js2D/P1ZHTL5FKjsJX4j
ojysPnGvqPgBBcPFjt1Xh7lY6a3QPlxDYfej1nV2g1x4cWqsftRSuL58qGyi
n4v8yxfGBF9QkFKd8nLs4aLO2n6eTD2ZH5c/9UXbuGi4wPZRbKQw/vx86L4a
LkaUSh80tVA4mOZhqvKUi1sTjziV7yg8CVboeVZJ+j+31r7TSqEn1VZ5QRkX
hfNbE0+9pxDwlS3UdJ9YRDlLvYPCiRihTpN0LnjVYjq/eymYZAiOdqRwUW4z
3vmqj0KQmdaXqCQu/u7p/5DaT/IZod3ec4ULvnRHIgYo3LLzNLsYw8UZjq7+
7mEKj7cacD8HcbHMSiPX/QuFEaN+pcz15PdYtS2y02Q80Yl5h1246A2WD8og
lvb4tcaOT8bjPpJoMkPh6Wkh+1EuF47Jq215Akw8b1JUXrGWC+Wzz7f7CzIx
fpOZ/mIpF3dbZU4dEmFCvSS57ZoxFz6jDq9HibN8GqR8DLm42PPxsocoE08+
3twlv4SL4+3NsY5iTAxyFv+zWYvkP68eCnOY0O2VbxmSJfGWDpziz2XC8jqn
qlSa2MP70H3i7x5Ot2KkuIiYK/pRXooJ9ri4j8kcLhKKj6q9Ir49OfPs6Cwu
2qfkXAylmUh0DrrImaGRcEtqfgRx3Ceuq/oUjfbNkvQ74kuPTHsqJmmYZIno
HZVhYq/a9xrxMRobC+5m3pJlInDgR2DbMI1j4yEm34iZOm2LcwdpvDRg/bVa
jon7SkeO8PpojEiEPaomHqsQmYpvp1F6bMT3qTwTc8Sb4j3f06hLE2wQnM9E
mLCw3spWGmvKvmf/RXzaqp3/4S0NseLD1beJazrNIzTraeRvzC08rsCE25Fc
IYEXNDara37LJd7oqhz6voZ83y7hURtxvekqv0tVNLqCjvYa/cFEBnveoG8F
jTeTvTabic91am+jy2nYPGabhBN/qN5oJfqIhkGwYNYrYjHDK/e7i8nzrXm6
X4if8zdqlReR8Q7ErZqvyITKdMZUQAENwebJr3zip8m0p/MdGgosxeQDxOZG
JY2GeTRO1DBenyfmuP2ZOnCDRuGkelMFsaWqseizHBo6SrNTW4nfzdh7p2fR
sOa8nRgjdlIJaAjOoLFl+NI/wkpMCAQ9M96cRuP5ZksoERsb28WbppDxiHcY
Mont2NKT8kk0Xu/1vLWKOK2ZseFzIg3ZuR/y7IhTO7KK66+QfBz6a/V64vyA
y0o3LtO4aHXaYScxK1ciMOISjQNq5aP7iB9HybW4xZH5vNOpEECcrF22jBVL
Y/zh8NNgYtcItUsq0SR+gZ6Zk8S+j82+TESR+XWsenKG2PmdqcObMzQEos9L
nic+1S+Xlx9J1tNV845o4vAfXZLnImjkeHesjiGuUS702h1OI23KY+F/7U0b
r9VYnaDhte5dTBTxgpqcRQtDyHydM4mMJNbz7Q+fDqIR/jhQLIzYf6d3d+tR
GjtlrsscI96fb2leFEhD73FF+kHimB2hqXGHaWgJPCvdTcyJMprl40/jvFah
2xbi+Ss8t7MP0rgdHBPtQMwPMKrQ8aVR4+tiZUHssz5VU3g/DTV3sXBj4rq+
qpOd3jTGXmfZL/wvfpPc/sdeZL5XGF2dRzwKyTuH3Ml+0pdt+UTms0g1XcFp
J8nXD4/Kl8TOo2uC9N1o6OrnLi8k/nqnmtPvSvZXvVhJCDG/tKGoahONn081
nu8gtvqpoZm6gYYlj+lmRWy8onFqgzPJd67KEiFirHfYu8yJrNc9s7d1kvUq
9NGlXdaBRuTZTpXHxI6bjKpfsGmsZ53U8yEWvjCU/ZcljZDRM2VVZL/c+7Qp
f9CMxFt1bNkF4n8t9UqusGhMyih+dSW2WkC3fFtJ4t3gaDFG9mOK7gOj24Y0
VN9JGAkQtxYF8Tbr01jJCm4vI/t7toWd75wlNFJMbjUGER91sHvkrkPD++eq
qK/kPDCW0zqirk7iPXHIsZ6cH01uW+/Wq9LIiPxhEkyslmI1clSZBlvIbos+
sXXLTt+W+TSkfbacPEPOo5N9zOxYSRLP70xtXXJecXi1XUI/OfAc9byjSs5D
tHK2FkxwYG2oL1ggSdavXHXH9m8cRKl/v7KWODL4w3jpGAcV3ReT9kgwcSvp
i3NgHwciMaG/k8SZKD2YzBh9w8Gi85lSBcJMGKn0T197zcHrZH7jEmIVsT2t
7AYOztRZt2UJke/H+GbceMGB1mLR6rjZTCx0L41wr+BAVfj42PpZTERlr4n/
mMeBiWf2zZjfFFJcD/gW5pJ4ZzTzf/4i988mPadzNzmYUz5/6Q5ij9xQalU2
B37TXuX6PymyL9ypy0kcCJZs+VA4QaHSrzCId46D9k3pJkHjFGJfmtYuPsuB
3XSu+avPpP6w5ajORHKgIHKsUZ147rz973LDOej3OOz7aJTCyWb3OxLHOIjo
Dy3pHiLx8G731nhxYGNZdmyA3K/bdFUKUjw5OC534YoW8ZJnmpEB7hzoiZ1Y
7vqJ3N8JdmwdNw5e7mz8XttNnr+0bE3kBg7YYS1hseS+Zj581mprw0H4G8EP
LeS+NzzstuONNgdvtk0U25D6YdB889JgTTLeqPuua55TyNzVLUct4OD71VwY
kXrj7Mzw92BVDoQ2+VbJP6OwKMF8na4cyZcuv6qqgtRvB9fHnRLgoGv1wtsN
xaQejImPsmljw+XuhG9CFqlvusWUvrWw8TPwqLRLJoU1GjfupTazMXYjYlQm
g0KqV73Sr0Y2UlS37w9PpRB1qfva7RriIK/D/KskfvW8ZMVCNjZOahWkxFL4
/Oum6o8YNvR0NPUHjlCoEimOunueDWvl6M5DgRRKF47O9Y5iQ6PboHdWAIUH
r7UtP55io6HWplfWn+SrsS/06XE2Ql4bVGrspyBGy/ITvNmomLH5NehGoUA+
9IOtDRu3PzZWwJaCQWRmc/+MPZnfDw290hTuSBqJv5yyB29BcrHOPAphFt/p
gl/2GPuWpL97LoV90bvkj0/Yo7XpXOUncQpZX65Fyo/aY9/Pa1H1gqReSXXX
smq3x93b6/PWfWUgjFWacP+RPUwrf192IfX8BvPi4eZAe8yRmqMhGM9AdI/Y
louH7ZHTU8d6GMeA1/qkfx387SGNt3k+5H3Cdc2gY72PPTpUxEJbohhoPg+f
ag97KL4yGYgLY+C1/4G+h872+Dv95b/FPgz8Dj7NLzG0h93aVUaVtgy4JXee
URiwI++LNQ9ffdfBocbLC+7vskPOVBStY6eDH2Mq5R2fbEF/z2Hln1mMbFgl
JbnaonVwxdeDaYtQlVjdJN5pA6n1tjtWFWjDwIJunONqA8uCHJvWy1q415V1
qL9nLXnvq4jQD9SEbWSnoM2BtegXWeQswF4Ix0SDzAc/rFGx5Ejn7lEN7Ls6
uHMyyhq8OMk6Z1115FJ36wJUrKFr+cTKVEEVb0MO+N3Ot4LPfWXf+k+KSNmz
+rOngxXG/LXXetbOxwX/ldVSo5ao68rVvW4li4yJi99kEiyxzVzzce7Dufgx
lPPo2FpLRC6tWze7SQQHpP6eHfTNAhp5NZ8uGE6zEka2HTG9bYHyz0vLTItG
WHU2XT+Ec4nf+u8WMBxh7Ys06Gy6aYH8437WxTeGWVkHt/f5XCftluW3pq8N
sbTM+U15GRaIuaJf1BI2wPLBHmOzRAs07KWol+xeVrnetNvdSAtsW6JZWJnd
xvK49ONz1CnSf00cCi63sjQcdAY8Ikg8skUHI069YwVE2yuoh1tAoKTm9z/u
/7A2P2ndciGYeJNCkY5WE+vpu8SHUYcsAIny/XLG1SzPxk+de/1J+6SHju+8
Stb7g9IHuX6kfbwj4PJgOcsv3KhJ7gBpb3B0P2ZdzNp58s3Z1L3EflPUO1YK
i9QysyO8iUMqJ/Oun2e5Xpru8dpDXF43dOqoa5ngJqpv6W7iw9syfiunldWu
LRFV9SSO3bn4TcGNMp+1ty4IelggZGplcUXWnTJmu2jkv7tIe1COktjX+2Um
US19DTtJe8f//w/5H77Tb54=
     "]]}},
  Axes->True,
  AxesOrigin->{40., 0},
  PlotRange->{{35, 85}, {0, 16}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.5074416403125*^9, 3.50744169159375*^9, {3.507441795*^9, 
   3.507441803546875*^9}, 3.507441859484375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"X", "=", 
   RowBox[{"Map", "[", " ", 
    RowBox[{
     RowBox[{"Function", "[", 
      RowBox[{"x", ",", 
       RowBox[{
        RowBox[{"x", "[", 
         RowBox[{"[", "1", "]"}], "]"}], 
        RowBox[{"Cos", "[", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"x", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], 
          RowBox[{"\[Pi]", "/", 
           RowBox[{"(", "180", ")"}]}]}], "]"}]}]}], "]"}], ",", "pr"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Y", "=", 
   RowBox[{"Map", "[", " ", 
    RowBox[{
     RowBox[{"Function", "[", 
      RowBox[{"x", ",", 
       RowBox[{
        RowBox[{"x", "[", 
         RowBox[{"[", "1", "]"}], "]"}], 
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"x", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], 
          RowBox[{"\[Pi]", "/", 
           RowBox[{"(", "180", ")"}]}]}], "]"}]}]}], "]"}], ",", "pr"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Z", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"X", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", 
       RowBox[{"Y", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"Length", "[", "X", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p2", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"Z", ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"Mesh", "\[Rule]", "Full"}], ",", 
     RowBox[{"MeshStyle", "\[Rule]", 
      RowBox[{"PointSize", "[", "Medium", "]"}]}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{
  3.5074410840625*^9, {3.507441127921875*^9, 3.50744113084375*^9}, {
   3.5074415345625*^9, 3.50744159096875*^9}, {3.50744163159375*^9, 
   3.50744163446875*^9}, 3.507441883875*^9}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGBwAGIQ7VG39FftuRAHmdWcj14uemF/YbJUTAtfiMNGl836
tz/wOVSKmB09NSfYoZEzXtSAWdphN9+USwzOwQ5m346Wr+5RcPB/Uvr825cg
hx3BfP+vMCg5OJeuy3y1I8jB6G3f5d1Vyg4cCqbznpUGOfC2FXVZmKg4OETv
fMTtGuSwMsrKrphJ1eH2gxTRLZJBDo8cC6McJqg6TKuXZrz2PNDh4I1PBo0/
VB1YdA8Hd58KcAi3Xdu4q1DdQV7YIuPWdH8HRc3fFnVnNR1mWMz6l/Tf1yHA
zcHrTK2Ww6VglZX6R3wcNrI8WCQaquVwgtlf58YJb4e4j1rphXs1HdyOH8z0
f+rlkL2FuzBZSdOhY8nR/U2GXg43y1pvPAzScEgS85oousjToYynJkC5S93B
qO2O4lc1T4eVPrejj21Vc5jCNSNEL83D4Wf/Gk7pHFWHhtPPnxVcdHe4vTr9
/Nwvyg6HrmTPTY90d3jislAh7qaSg4zBp/12f9wcPv5u8/M6qOggzMPCz7jO
zaGi0/TLiXUKDoJro1SVT7k6HHKWX9l8RMrhmiTLStN0VwfPpUtbQ/jEHCwf
z0mMUXR1+P7tWrhshbCDhUK8aNs3F4ezioq/9GIEHSocVKc8uOPi8PTj11oj
RQEHgxu3JjJfdnH4eCPtZa8zn0OGjLMt+w0XB+kHTCvuRvI5hNhy8XdMd3FY
UBXk1NfI5zAa/yM7/gEHpbOZ
   "], {{{}, {}, 
     {Hue[0.67, 0.6, 0.6], 
      LineBox[{33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48,
        49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64}]}}, {
     {PointSize[Medium], 
      PointBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
        19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{50., 0},
  PlotRange->{{41.18383968353251, 83.22643915330366}, {0., 
   13.245699234338787`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.507441559046875*^9, 3.507441565953125*^9}, 
   3.507441707265625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"p1", ",", "p2", ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Re(Z)\>\"", ",", "\"\<-Im(Z)\>\""}], "}"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"35", ",", "0"}], "}"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "0.5"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.507441719765625*^9, 3.5074417745*^9}, {
  3.507441953703125*^9, 3.5074419541875*^9}, {3.5074419894375*^9, 
  3.507441989796875*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwl2Hk4lOsbB3DJGsmWYzsolHlH9krLab7WLDPvDIZWLSokFUVRCZFUCinp
KPvWIkqRFLIURZFyRMkWjj0ttOD3nOv311yf65nnnfu5n+1+Z4HbfsddggIC
ArKzBAT++7ztxzXMe8OHQOcbiYdmD8vKXoQ1Gv5ng0aHlbsLy56FL1t7r4nY
f5u1TOzdsmilRQUPXhPHOW0/VZlZVjUdf66sgdjcUFC8O5Zltmsur7qOj3I9
zRd555+wNLb91r5TxYdGWUS7kHgLK8krdHTOPeKNGac0tAZZQwkB/sXn+Mjp
PGB6KXOKdde695mFB3lePn/JfjURmEpX7lZj8fFGxKnt5Ly5uNiQFD0kzUea
qEN1BFMWm8859O/udkLHlYduZr7zcezgwNmLeU5IKLilHNGiiB37xLvMjjhB
OmCyVkpcFX5mGQ99rZ3QIB8SHdiuhqtDTg9UJZ1Q2pz79me3BkY0AsLLmhzx
VFTVbJy5EOEblHe9+tsRglSC0h8bNaGmPDxhuckR8YfWH794VgtrRih/XzVH
uP9rP6QYp43rTxqmJlodMKTqUZKbsAjDSV3j9GUHuEjmL40PWQzVQSyXWeeA
+I/pz03MdSBfxbpkK+2AjhRbuXm/dEAJpbmw5jnglnPS4ugpHdhvV5+zVMoB
dNO12rkCDAxmnF2rIemA/mluoYgwA001En9+F3WA2A4Pgz4pBuZdKVqRPMOD
TkhxvNtCBoTDVx3oG+GhVOZzjrkNA7uCjDMd6nnwEa4aS49mQMB+dfaSOh48
j+wI+xrLgNQil0TxFzyYyg67WlxkID2wd8OTGh6k2rwG2hIYEOtNNDSo4mF9
bO2WyVQGcvr28iVKeMh6J5neXsBAprVnflEODyIVNyS3NZP4ruSLXcjmQSPt
T//AFgbaolz43lk87Jz5sTC2lYG62Z+qNTJIvMvT6ZJ2BtwXG8idTubhqXF2
989eEq9tytZ18Tywi7S/LppgwL5KRHwwjIeV94v1jRQotD6VN6s9wYOaEW+r
hCKF3lXL92WH8jBer9LVpUQhR7sze0cwD1rDMp1Rf1KYldV+pe0IDw3Piyvq
tCgcn9ELrfXlIWCpjuhvIwresrlp17by4H1diKFIU/hy/2TMkS2kf5ZKagmX
QvqjfL91rjxQSiFerg4U8mu0NWQ28VBuPTmWyKcgXJEmFO7Cg+JKpRdCmyhc
O54i6cnh4Uz+v9knPSiEvA/awlhFxjOgm2kRTEHzH6dqxZU8NHdtLEgIoaD2
8rWW2Aoenu/9y3YolAJfZ6i+dxkPQ28nJKLDKTi/31+bbsTDiWTGUMVpCn1e
zd6qFA+Obt1SPXEUftsLJYkp8XC8VipRIpvC+9NFjIk/yPNHZc4Z5lBA9x95
nxRI/85EYZfrFO4FCmRXyPOwcMuCM3/fJPlc7sw+Js2D/P1ZHTL5FKjsJX4j
ojysPnGvqPgBBcPFjt1Xh7lY6a3QPlxDYfej1nV2g1x4cWqsftRSuL58qGyi
n4v8yxfGBF9QkFKd8nLs4aLO2n6eTD2ZH5c/9UXbuGi4wPZRbKQw/vx86L4a
LkaUSh80tVA4mOZhqvKUi1sTjziV7yg8CVboeVZJ+j+31r7TSqEn1VZ5QRkX
hfNbE0+9pxDwlS3UdJ9YRDlLvYPCiRihTpN0LnjVYjq/eymYZAiOdqRwUW4z
3vmqj0KQmdaXqCQu/u7p/5DaT/IZod3ec4ULvnRHIgYo3LLzNLsYw8UZjq7+
7mEKj7cacD8HcbHMSiPX/QuFEaN+pcz15PdYtS2y02Q80Yl5h1246A2WD8og
lvb4tcaOT8bjPpJoMkPh6Wkh+1EuF47Jq215Akw8b1JUXrGWC+Wzz7f7CzIx
fpOZ/mIpF3dbZU4dEmFCvSS57ZoxFz6jDq9HibN8GqR8DLm42PPxsocoE08+
3twlv4SL4+3NsY5iTAxyFv+zWYvkP68eCnOY0O2VbxmSJfGWDpziz2XC8jqn
qlSa2MP70H3i7x5Ot2KkuIiYK/pRXooJ9ri4j8kcLhKKj6q9Ir49OfPs6Cwu
2qfkXAylmUh0DrrImaGRcEtqfgRx3Ceuq/oUjfbNkvQ74kuPTHsqJmmYZIno
HZVhYq/a9xrxMRobC+5m3pJlInDgR2DbMI1j4yEm34iZOm2LcwdpvDRg/bVa
jon7SkeO8PpojEiEPaomHqsQmYpvp1F6bMT3qTwTc8Sb4j3f06hLE2wQnM9E
mLCw3spWGmvKvmf/RXzaqp3/4S0NseLD1beJazrNIzTraeRvzC08rsCE25Fc
IYEXNDara37LJd7oqhz6voZ83y7hURtxvekqv0tVNLqCjvYa/cFEBnveoG8F
jTeTvTabic91am+jy2nYPGabhBN/qN5oJfqIhkGwYNYrYjHDK/e7i8nzrXm6
X4if8zdqlReR8Q7ErZqvyITKdMZUQAENwebJr3zip8m0p/MdGgosxeQDxOZG
JY2GeTRO1DBenyfmuP2ZOnCDRuGkelMFsaWqseizHBo6SrNTW4nfzdh7p2fR
sOa8nRgjdlIJaAjOoLFl+NI/wkpMCAQ9M96cRuP5ZksoERsb28WbppDxiHcY
Mont2NKT8kk0Xu/1vLWKOK2ZseFzIg3ZuR/y7IhTO7KK66+QfBz6a/V64vyA
y0o3LtO4aHXaYScxK1ciMOISjQNq5aP7iB9HybW4xZH5vNOpEECcrF22jBVL
Y/zh8NNgYtcItUsq0SR+gZ6Zk8S+j82+TESR+XWsenKG2PmdqcObMzQEos9L
nic+1S+Xlx9J1tNV845o4vAfXZLnImjkeHesjiGuUS702h1OI23KY+F/7U0b
r9VYnaDhte5dTBTxgpqcRQtDyHydM4mMJNbz7Q+fDqIR/jhQLIzYf6d3d+tR
GjtlrsscI96fb2leFEhD73FF+kHimB2hqXGHaWgJPCvdTcyJMprl40/jvFah
2xbi+Ss8t7MP0rgdHBPtQMwPMKrQ8aVR4+tiZUHssz5VU3g/DTV3sXBj4rq+
qpOd3jTGXmfZL/wvfpPc/sdeZL5XGF2dRzwKyTuH3Ml+0pdt+UTms0g1XcFp
J8nXD4/Kl8TOo2uC9N1o6OrnLi8k/nqnmtPvSvZXvVhJCDG/tKGoahONn081
nu8gtvqpoZm6gYYlj+lmRWy8onFqgzPJd67KEiFirHfYu8yJrNc9s7d1kvUq
9NGlXdaBRuTZTpXHxI6bjKpfsGmsZ53U8yEWvjCU/ZcljZDRM2VVZL/c+7Qp
f9CMxFt1bNkF4n8t9UqusGhMyih+dSW2WkC3fFtJ4t3gaDFG9mOK7gOj24Y0
VN9JGAkQtxYF8Tbr01jJCm4vI/t7toWd75wlNFJMbjUGER91sHvkrkPD++eq
qK/kPDCW0zqirk7iPXHIsZ6cH01uW+/Wq9LIiPxhEkyslmI1clSZBlvIbos+
sXXLTt+W+TSkfbacPEPOo5N9zOxYSRLP70xtXXJecXi1XUI/OfAc9byjSs5D
tHK2FkxwYG2oL1ggSdavXHXH9m8cRKl/v7KWODL4w3jpGAcV3ReT9kgwcSvp
i3NgHwciMaG/k8SZKD2YzBh9w8Gi85lSBcJMGKn0T197zcHrZH7jEmIVsT2t
7AYOztRZt2UJke/H+GbceMGB1mLR6rjZTCx0L41wr+BAVfj42PpZTERlr4n/
mMeBiWf2zZjfFFJcD/gW5pJ4ZzTzf/4i988mPadzNzmYUz5/6Q5ij9xQalU2
B37TXuX6PymyL9ypy0kcCJZs+VA4QaHSrzCId46D9k3pJkHjFGJfmtYuPsuB
3XSu+avPpP6w5ajORHKgIHKsUZ147rz973LDOej3OOz7aJTCyWb3OxLHOIjo
Dy3pHiLx8G731nhxYGNZdmyA3K/bdFUKUjw5OC534YoW8ZJnmpEB7hzoiZ1Y
7vqJ3N8JdmwdNw5e7mz8XttNnr+0bE3kBg7YYS1hseS+Zj581mprw0H4G8EP
LeS+NzzstuONNgdvtk0U25D6YdB889JgTTLeqPuua55TyNzVLUct4OD71VwY
kXrj7Mzw92BVDoQ2+VbJP6OwKMF8na4cyZcuv6qqgtRvB9fHnRLgoGv1wtsN
xaQejImPsmljw+XuhG9CFqlvusWUvrWw8TPwqLRLJoU1GjfupTazMXYjYlQm
g0KqV73Sr0Y2UlS37w9PpRB1qfva7RriIK/D/KskfvW8ZMVCNjZOahWkxFL4
/Oum6o8YNvR0NPUHjlCoEimOunueDWvl6M5DgRRKF47O9Y5iQ6PboHdWAIUH
r7UtP55io6HWplfWn+SrsS/06XE2Ql4bVGrspyBGy/ITvNmomLH5NehGoUA+
9IOtDRu3PzZWwJaCQWRmc/+MPZnfDw290hTuSBqJv5yyB29BcrHOPAphFt/p
gl/2GPuWpL97LoV90bvkj0/Yo7XpXOUncQpZX65Fyo/aY9/Pa1H1gqReSXXX
smq3x93b6/PWfWUgjFWacP+RPUwrf192IfX8BvPi4eZAe8yRmqMhGM9AdI/Y
louH7ZHTU8d6GMeA1/qkfx387SGNt3k+5H3Cdc2gY72PPTpUxEJbohhoPg+f
ag97KL4yGYgLY+C1/4G+h872+Dv95b/FPgz8Dj7NLzG0h93aVUaVtgy4JXee
URiwI++LNQ9ffdfBocbLC+7vskPOVBStY6eDH2Mq5R2fbEF/z2Hln1mMbFgl
JbnaonVwxdeDaYtQlVjdJN5pA6n1tjtWFWjDwIJunONqA8uCHJvWy1q415V1
qL9nLXnvq4jQD9SEbWSnoM2BtegXWeQswF4Ix0SDzAc/rFGx5Ejn7lEN7Ls6
uHMyyhq8OMk6Z1115FJ36wJUrKFr+cTKVEEVb0MO+N3Ot4LPfWXf+k+KSNmz
+rOngxXG/LXXetbOxwX/ldVSo5ao68rVvW4li4yJi99kEiyxzVzzce7Dufgx
lPPo2FpLRC6tWze7SQQHpP6eHfTNAhp5NZ8uGE6zEka2HTG9bYHyz0vLTItG
WHU2XT+Ec4nf+u8WMBxh7Ys06Gy6aYH8437WxTeGWVkHt/f5XCftluW3pq8N
sbTM+U15GRaIuaJf1BI2wPLBHmOzRAs07KWol+xeVrnetNvdSAtsW6JZWJnd
xvK49ONz1CnSf00cCi63sjQcdAY8Ikg8skUHI069YwVE2yuoh1tAoKTm9z/u
/7A2P2ndciGYeJNCkY5WE+vpu8SHUYcsAIny/XLG1SzPxk+de/1J+6SHju+8
Stb7g9IHuX6kfbwj4PJgOcsv3KhJ7gBpb3B0P2ZdzNp58s3Z1L3EflPUO1YK
i9QysyO8iUMqJ/Oun2e5Xpru8dpDXF43dOqoa5ngJqpv6W7iw9syfiunldWu
LRFV9SSO3bn4TcGNMp+1ty4IelggZGplcUXWnTJmu2jkv7tIe1COktjX+2Um
US19DTtJe8f//w/5H77Tb54=
      "]]}}, GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGBwAGIQ7VG39FftuRAHmdWcj14uemF/YbJUTAtfiMNGl836
tz/wOVSKmB09NSfYoZEzXtSAWdphN9+USwzOwQ5m346Wr+5RcPB/Uvr825cg
hx3BfP+vMCg5OJeuy3y1I8jB6G3f5d1Vyg4cCqbznpUGOfC2FXVZmKg4OETv
fMTtGuSwMsrKrphJ1eH2gxTRLZJBDo8cC6McJqg6TKuXZrz2PNDh4I1PBo0/
VB1YdA8Hd58KcAi3Xdu4q1DdQV7YIuPWdH8HRc3fFnVnNR1mWMz6l/Tf1yHA
zcHrTK2Ww6VglZX6R3wcNrI8WCQaquVwgtlf58YJb4e4j1rphXs1HdyOH8z0
f+rlkL2FuzBZSdOhY8nR/U2GXg43y1pvPAzScEgS85oousjToYynJkC5S93B
qO2O4lc1T4eVPrejj21Vc5jCNSNEL83D4Wf/Gk7pHFWHhtPPnxVcdHe4vTr9
/Nwvyg6HrmTPTY90d3jislAh7qaSg4zBp/12f9wcPv5u8/M6qOggzMPCz7jO
zaGi0/TLiXUKDoJro1SVT7k6HHKWX9l8RMrhmiTLStN0VwfPpUtbQ/jEHCwf
z0mMUXR1+P7tWrhshbCDhUK8aNs3F4ezioq/9GIEHSocVKc8uOPi8PTj11oj
RQEHgxu3JjJfdnH4eCPtZa8zn0OGjLMt+w0XB+kHTCvuRvI5hNhy8XdMd3FY
UBXk1NfI5zAa/yM7/gEHpbOZ
    "], {{{}, {}, 
      {Hue[0.67, 0.6, 0.6], 
       LineBox[{33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 
        48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 
        64}]}}, {
      {PointSize[Medium], 
       PointBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
        18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 
        32}]}, {}, {}}}]},
  AspectRatio->0.5,
  Axes->True,
  AxesLabel->{
    FormBox["\"Re(Z)\"", TraditionalForm], 
    FormBox["\"-Im(Z)\"", TraditionalForm]},
  AxesOrigin->{35, 0},
  ImageSize->{495.00000000000097`, Automatic},
  PlotRange->{{35, 85}, {0, 16}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.5074417243125*^9, 3.50744177578125*^9}, 
   3.5074418091875*^9, 3.507441862265625*^9, 3.50744195521875*^9, 
   3.507441990265625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"R", " ", "and", " ", "X", " ", "to", " ", "freq"}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.50744210840625*^9, 3.507442121359375*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"RR", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"ff", ",", "X"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"XX", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"ff", ",", "Y"}], "}"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.507442144140625*^9, 3.507442184625*^9}, {
  3.50744229625*^9, 3.507442306125*^9}, {3.507442403640625*^9, 
  3.507442409109375*^9}}],

Cell[CellGroupData[{

Cell[BoxData["ff"], "Input",
 CellChangeTimes->{{3.507443218265625*^9, 3.5074432184375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1000", ",", "2000", ",", "3000", ",", "4000", ",", "5000", ",", "6000", 
   ",", "7000", ",", "8000", ",", "9000", ",", "10000", ",", "20000", ",", 
   "30000", ",", "40000", ",", "50000", ",", "60000", ",", "70000", ",", 
   "80000", ",", "90000", ",", "100000", ",", "120000", ",", "140000", ",", 
   "160000", ",", "180000", ",", "200000", ",", "300000", ",", "400000", ",", 
   "500000", ",", "600000", ",", "700000", ",", "800000", ",", "900000", ",", 
   "1000000"}], "}"}]], "Output",
 CellChangeTimes->{3.507443218671875*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.5074431799375*^9, 3.507443204953125*^9}, {
  3.5074432358125*^9, 3.50744331934375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ParametricPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"u", ",", "v"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", "1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"v", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"Mesh", "\[Rule]", "Full"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.507442715828125*^9, 3.50744279615625*^9}, {
  3.5074430799375*^9, 3.507443105296875*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxt111qVTEYhtFuY8R/9xREBWeRXKrgjUMQvFMKzsQiOBILgiNREDqDICKI
+NNG1nf4guWUzYKTd5/nMnefHz97ceno6Ojs/P/i+e9vtH/Pq/3k/uPzz9fw
5Mm38Omrz+ef7+FH88CP8Kf5hZ/hlxdfP/0V/v1n/i3nt85v5gsv9bxXwvfm
77nc834Nv5+/70r4/8/RHsydQy/rZb2sl/WyXtabz2+d9ea9Etab92tYL+vM
Hu3JfO+16GW9rJf1sl7Wy3rz+a2z3rxXwnrzfg3rZb3Zox3Pc4de1st6WS/r
Zb2sN5/fOuvNeyWsN+/XsF7Wmz3a2/me69HLelkv62W9rJf15vNbZ715r4T1
5v0a1st6s0f7ML936GW9rJf1sl7Wy3rz+a2z3rxXwnrzfg3rZb3Zo32Zuzei
l/WyXtbLelkv683nt856814J6837NayX9WaPVubzZvSyXtbLelkv62W9+fzW
WW/eK2G9eb+G9bLe7NEezp1DL+tlvayX9bJe1pvPb5315r0S1pv3a1gv680e
7el8763oZb2sl/WyXtbLevP5rbPevFfCevN+DetlvdmjvZ7nDr2sl/WyXtbL
ellvPr911pv3Slhv3q9hvaw3e7R38z23o5f1sl7Wy3pZL+vN57fOevNeCevN
+zWsl/Vmj/Zxfu/Qy3pZL+tlvayX9ebzW2e9ea+E9eb9GtbLerNHO5u7d6KX
9bJe1st6WS/rzee3znrzXgnrzfs1rJf1Zrsf7cv9aF/uR/tyP9qX+9G+3I/2
5X60L/ejfbkf7cv9aF/uR/tyP9qX+9G+3I/26OW/Cv+CRg==
   "], {{
     {Hue[0.67, 0.6, 0.6], Opacity[0.2], EdgeForm[None], 
      GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwBIQPe/CFib1JiAgAAAMQAAAAEAAAAAQIREAIDEhEDBBMSCwwbGgwNHBsF
BhUUBgcWFQQFFBMJChkYCgsaGQgJGBcNDh0cFhcmJRARIB8REiEgMjNCQRUW
JSQODx4dExQjIhITIiEXGCcmFBUkIwcIFxYYGSgnGRopKCAhMC8cHSwrHR4t
LBscKyofIC8uJSY1NCEiMTAjJDMyJCU0MyYnNjUoKTg3LzA/PikqOTgqKzo5
GhsqKSwtPDsrLDs6Li8+PTAxQD8xMkFAJyg3NjM0Q0IiIzIxNDVEQ1ZXZmU5
OklINjdGRTc4R0ZAQVBPODlIRz9AT046O0pJPT5NTD4/Tk07PEtKQUJRUElK
WVhDRFNSREVUU0VGVVRCQ1JRRkdWVUhJWFdHSFdWSktaWUxNXFtNTl1cT1Bf
XtDR4N9UVWRjUVJhYFJTYmFbXGtqU1RjYllaaWhVVmVkV1hnZlhZaGdcXWxr
XV5tbGRldHNfYG9uYGFwb1BRYF9eX25tYWJxcGJjcnFlZnV0Zmd2dWNkc3I1
NkVEZ2h3dmhpeHdqa3p5b3B/fmxtfHttbn18dXaFhG5vfn10dYSDcHGAf3Jz
goFzdIOCcXKBgHZ3hoV/gI+OeXqJiHp7iol7fIuKd3iHhnx9jIt+f46NfX6N
jICBkI+BgpGQgoOSkYOEk5KEhZSTiYqZmIqLmpmGh5aViImYl4uMm5qOj56d
j5CfnoyNnJuNjp2chYaVlJCRoJ+Sk6Khl5inppOUo6KUlaSjlZalpJiZqKeR
kqGgmZqpqJqbqqmbnKuqnJ2sq2tse3qdnq2sn6CvrqOks7KgobCvoaKxsKqr
urmio7Kxqaq5uKSltLOnqLe2qKm4t6usu7qsrby7s7TDwq6vvr2vsL++np+u
ra2uvbywscC/sbLBwLW2xcS2t8bFsrPCwaantrVOT15dt7jHxrm6yci9vs3M
vr/Ozbu8y8q8vczLv8DPzsLD0tHExdTTwMHQz8HC0dC6u8rJxcbV1MfI19bL
zNvayMnY18nK2djKy9rZzM3c28bH1tXNzt3czs/e3c/Q3964ucjH0dLh4IBH
XJA=
        "]]]}, {}, {}, {}, {}}, {
     {Hue[0.67, 0.6, 0.6], 
      LineBox[{2, 1, 16, 31, 46, 61, 76, 91, 106, 121, 136, 151, 166, 181, 
       196, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 
       224, 225, 210, 195, 180, 165, 150, 135, 120, 105, 90, 75, 60, 45, 30, 
       15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2}]}, {}, {}, 
     {GrayLevel[0], Opacity[0.3], 
      LineBox[{1, 16, 31, 46, 61, 76, 91, 106, 121, 136, 151, 166, 181, 196, 
       211}], LineBox[{2, 17, 32, 47, 62, 77, 92, 107, 122, 137, 152, 167, 
       182, 197, 212}], 
      LineBox[{3, 18, 33, 48, 63, 78, 93, 108, 123, 138, 153, 168, 183, 198, 
       213}], LineBox[{4, 19, 34, 49, 64, 79, 94, 109, 124, 139, 154, 169, 
       184, 199, 214}], 
      LineBox[{5, 20, 35, 50, 65, 80, 95, 110, 125, 140, 155, 170, 185, 200, 
       215}], LineBox[{6, 21, 36, 51, 66, 81, 96, 111, 126, 141, 156, 171, 
       186, 201, 216}], 
      LineBox[{7, 22, 37, 52, 67, 82, 97, 112, 127, 142, 157, 172, 187, 202, 
       217}], LineBox[{8, 23, 38, 53, 68, 83, 98, 113, 128, 143, 158, 173, 
       188, 203, 218}], 
      LineBox[{9, 24, 39, 54, 69, 84, 99, 114, 129, 144, 159, 174, 189, 204, 
       219}], LineBox[{10, 25, 40, 55, 70, 85, 100, 115, 130, 145, 160, 175, 
       190, 205, 220}], 
      LineBox[{11, 26, 41, 56, 71, 86, 101, 116, 131, 146, 161, 176, 191, 206,
        221}], LineBox[{12, 27, 42, 57, 72, 87, 102, 117, 132, 147, 162, 177, 
       192, 207, 222}], 
      LineBox[{13, 28, 43, 58, 73, 88, 103, 118, 133, 148, 163, 178, 193, 208,
        223}], LineBox[{14, 29, 44, 59, 74, 89, 104, 119, 134, 149, 164, 179, 
       194, 209, 224}], 
      LineBox[{15, 30, 45, 60, 75, 90, 105, 120, 135, 150, 165, 180, 195, 210,
        225}]}, 
     {GrayLevel[0], Opacity[0.3], 
      LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15}], 
      LineBox[{16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30}], 
      LineBox[{31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45}], 
      LineBox[{46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60}], 
      LineBox[{61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75}], 
      LineBox[{76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90}], 
      LineBox[{91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 
       105}], LineBox[{106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 
       117, 118, 119, 120}], 
      LineBox[{121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 
       133, 134, 135}], 
      LineBox[{136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 
       148, 149, 150}], 
      LineBox[{151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 
       163, 164, 165}], 
      LineBox[{166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 
       178, 179, 180}], 
      LineBox[{181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 
       193, 194, 195}], 
      LineBox[{196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 
       208, 209, 210}], 
      LineBox[{211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 
       223, 224, 225}]}}}],
  Axes->True,
  Frame->True,
  Method->{"TransparentPolygonMesh" -> True, "AxesInFront" -> True},
  PlotRange->{{1., 3.}, {3., 4.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.5074427084375*^9, 3.50744272065625*^9}, {
  3.507442753328125*^9, 3.507442780515625*^9}, {3.50744308159375*^9, 
  3.507443105984375*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"RR", ",", "XX"}], "}"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"Mesh", "\[Rule]", "Full"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.507442324046875*^9, 3.50744238546875*^9}, {
  3.507443014140625*^9, 3.50744302165625*^9}, {3.507443075171875*^9, 
  3.507443077203125*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGBoAGIQDQYO/Q4edUt/1Z4LcYDw5ztcmCwV08IH5Rcsd6gU
MTt6ak4wVH69w26+KZcYnKH8js0O/k9Kn3/7EgRVv93BuXRd5qsdUH7EbgcO
BdN5z0qhfIf9Dg7ROx9xu0L5Uw463H6QIrpFEsrvOOwwrV6a8drzQCj/sgOL
7uHg7lMBEL7PXQd5YYuMW9P9ofKPHWZYzPqX9N8Xws964XApWGWl/hEfqPq3
DieY/XVunPCG8MU/OrgdP5jp/9QLqv+zQ8eSo/ubDKH8n18dksS8Joou8oSa
98PBqO2O4lc1KN/nr8MUrhkhemkeUPMYHRtOP39WcNEdah6z46Er2XPTI6H8
n6yOMgaf9tv9cYOax+EozMPCz7gOwm/wF3IUXBulqnzKFSov4XhNkmWlaTqE
39Ai52j5eE5ijCKU76/kaKEQL9r2zQXMPxCj6ljhoDrlwR0XqH4NR4MbtyYy
X4bwHcq1HTNknG3Zb7hAzdNzDLHl4u+YDlUPjH+Z1ZyPXi56YQ+L/40um/Vv
f+CDx38jZ7yoAbM0PP7Nvh0tX92jAI//HcF8/68wKMHj3+ht3+XdVcrw+Odt
K+qyMFGBx//KKCu7YiZVePw/ciyMcpigCo//gzc+GTT+gPEvO4Tbrm3cVagO
j39Fzd8WdWc14fEf4ObgdaZWCx7/G1keLBIN1YLHf9xHrfTCvZrw+M/ewl2Y
rATT/9nhZlnrjYdBGvD4L+OpCVDuUofH/0qf29HHtqrB4/9n/xpO6RxVePzf
Xp1+fu4XZXj8P3FZqBB3Uwke/x9/t/l5HVSEx39Fp+mXE+sU4PF/yFl+ZfMR
KXj8ey5d2hrCJwaP/+/froXLVgjD4/+souIvvRhBePw//fi11khRAB7/H2+k
vex15oPHv/QDphV3I/ng8b+gKsipr5EPHv+j+X80/4/m/5GX/wH0LFtQ
   "], {{{}, {}, 
     {Hue[0.67, 0.6, 0.6], 
      LineBox[{65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80,
        81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96}]}, 
     {Hue[0.9060679774997897, 0.6, 0.6], 
      LineBox[{97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 
       110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 
       124, 125, 126, 127, 128}]}}, {
     {Hue[0.67, 0.6, 0.6], 
      PointBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
        19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 
       36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53,
        54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64}]}, {}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  ImageSize->{527.5000000000013, Automatic},
  PlotRange->{{0., 1.*^6}, {0., 83.22643915330366}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.507442329796875*^9, 3.507442412171875*^9}, 
   3.507443022390625*^9, 3.5074431100625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"log", " ", "freq", " ", "plot"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"lff", "=", 
     RowBox[{"N", "[", 
      RowBox[{"Log", "[", 
       RowBox[{"10", ",", "ff"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"lRR", "=", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"lff", ",", "X"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"lXX", "=", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"lff", ",", "Y"}], "}"}], "]"}]}], ";"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.507443302203125*^9, 3.507443343515625*^9}, 
   3.507449647828125*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ListLogLinearPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"RR", ",", "XX"}], "}"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"Mesh", "\[Rule]", "Full"}], ",", 
    RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Frequency (Hz)\>\"", ",", "\"\<Resistance (\[CapitalOmega])\>\""}],
       "}"}]}]}], "]"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.507443325140625*^9, 3.507443355578125*^9}, {
  3.507449527078125*^9, 3.507449527734375*^9}, {3.50744963946875*^9, 
  3.507449644390625*^9}, {3.507450010578125*^9, 3.50745001403125*^9}, {
  3.507450071265625*^9, 3.507450085375*^9}, {3.5074501451875*^9, 
  3.507450175484375*^9}, {3.507450207140625*^9, 3.507450207875*^9}, {
  3.50745023946875*^9, 3.50745024684375*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJzt0+tPk3cYxvFyiAro40gtiT6ofVra0qJycJhiBl7SUqTI6J7WGAtBhxuF
dYnrCII4lHogWhVlFoQNSe3EreOQoJCouBCcTGTg8BBSBQ1DFAW3rIRjXdZp
jL9/Ql7cuXK//uTLZO5iP/fmcDjFr+/N2jwnqyznaGzaV+suuq3DY9WuWdaw
Ar2nl6UfonSItC2vjvfhY8+SdR1d1VpQiT/Wn6jgo5Wy3uUotMhv6jjWs4BB
6nDeyNQEi17Fom5xFgNFXmPO6GUWdHKpndvCYAE/uuZZHouG0YoB0ywDpF0Z
CkhgcRq5Y23RAvQPfsZrXsoiaEtLa5NRgIr9tFffyCdonjk/Vn5bCN/Vv2qP
dWmQP+kfEF4TgpVcefbDM6nQVlvpwkgRKuXf/ZfpScG1eZfcV34Q4a42xBF+
YzOCqtzruV5idPqkrnJ2JmOHbW8gRyOG6mZ7TupTNcY3HErOsIpx5HxH24FI
NZzlO/T1vWJkBqnLePYkpP1sl9XMkyCqZICZFCeh5aPRL6Z3SmD1r9StydoE
j8K4cfiiBMW/jzz76k4iyp7k7o2fluD6feNZw7ZE5MdoLKfWhiI4Yrwt7l8V
3Cnf6g/khIK70HexV6MK19Qze+gYKQIb9CJhVwKqXGZLVrcUfUt9HdGGBHil
23IuxMkQ86T603QmAWl/jzg838sg52/nlUwpcWEyu/jlqAwFEFkHB5SQl5uu
qsPDEOF8WOZzT4kVYym3Ko1hyA5WxM53KvHWOwy6WP/FR868+2kE1/kNvbA/
3/DOv0l5Kbz/H4r4m/228yJ8aOK/bqojv+44n/hf1lKe+xwB8Y/6q/Rea6GQ
+C8q+doi/zCE+Dv06+NyvUXEf2ijSY9TIuLf7hyPMM+IiP/W2AbzVZOE+DPS
V/J9PVLir1FB3V0kI/5NvoN23hYZ8c9wyQymX6TE39gcYNopkBL/B7sPO/9k
Q4n/7oXfaIQWCfF3bO5P+61FTPxnT9b70V+KiH9/neGPsxNC4j+sPMfPeCAg
/q5XJR+r2xniX3A0eqKzkU/8rytWOg7eWEb8k2prD+uoIOI/PdW3dXkBl/j3
MIx7TXog8X/qmiyKYj4g/i5n1osTCor404PePz3aRhF/WyEbX2qmMNf/XP9z
/b+//f8PzZR1aw==
   "], {{{}, {}, 
     {Hue[0.67, 0.6, 0.6], 
      LineBox[{65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80,
        81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96}]}, 
     {Hue[0.9060679774997897, 0.6, 0.6], 
      LineBox[{97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 
       110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 
       124, 125, 126, 127, 128}]}}, {
     {Hue[0.67, 0.6, 0.6], 
      PointBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
        19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 
       36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53,
        54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64}]}, {}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{6.907755278982137, 0.},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& )},
  Frame->True,
  FrameLabel->{
    FormBox["\"Frequency (Hz)\"", TraditionalForm], 
    FormBox["\"Resistance (\[CapitalOmega])\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {{{6.907755278982137, 
       FormBox["1000", TraditionalForm]}, {8.517193191416238, 
       FormBox["5000", TraditionalForm]}, {9.210340371976184, 
       FormBox[
        TemplateBox[{"1", 
          
          TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "Row", 
         DisplayFunction -> (RowBox[{#, "\[Times]", #2}]& ), 
         InterpretationFunction -> (RowBox[{"Row", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{#, ",", #2}], "}"}], ",", "\"\[Times]\""}], "]"}]& )],
         TraditionalForm]}, {10.819778284410283`, 
       FormBox[
        TemplateBox[{"5", 
          
          TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "Row", 
         DisplayFunction -> (RowBox[{#, "\[Times]", #2}]& ), 
         InterpretationFunction -> (RowBox[{"Row", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{#, ",", #2}], "}"}], ",", "\"\[Times]\""}], "]"}]& )],
         TraditionalForm]}, {11.512925464970229`, 
       FormBox[
        TemplateBox[{"1", 
          
          TemplateBox[{"10", "5"}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "Row", 
         DisplayFunction -> (RowBox[{#, "\[Times]", #2}]& ), 
         InterpretationFunction -> (RowBox[{"Row", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{#, ",", #2}], "}"}], ",", "\"\[Times]\""}], "]"}]& )],
         TraditionalForm]}, {13.122363377404328`, 
       FormBox[
        TemplateBox[{"5", 
          
          TemplateBox[{"10", "5"}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "Row", 
         DisplayFunction -> (RowBox[{#, "\[Times]", #2}]& ), 
         InterpretationFunction -> (RowBox[{"Row", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{#, ",", #2}], "}"}], ",", "\"\[Times]\""}], "]"}]& )],
         TraditionalForm]}, {13.815510557964274`, 
       FormBox[
        TemplateBox[{"1", 
          
          TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "Row", 
         DisplayFunction -> (RowBox[{#, "\[Times]", #2}]& ), 
         InterpretationFunction -> (RowBox[{"Row", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{#, ",", #2}], "}"}], ",", "\"\[Times]\""}], "]"}]& )],
         TraditionalForm]}, {15.424948470398375`, 
       FormBox[
        TemplateBox[{"5", 
          
          TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "Row", 
         DisplayFunction -> (RowBox[{#, "\[Times]", #2}]& ), 
         InterpretationFunction -> (RowBox[{"Row", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{#, ",", #2}], "}"}], ",", "\"\[Times]\""}], "]"}]& )],
         TraditionalForm]}, {7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.006367567650246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.294049640102028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.699514748210191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.85366542803745, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.987196820661973, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {9.104979856318357, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {9.903487552536127, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {10.308952660644293`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {10.596634733096073`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {11.002099841204238`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {11.156250521031495`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {11.289781913656018`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {11.407564949312402`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {12.206072645530174`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {12.611537753638338`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {12.89921982609012, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {13.304684934198283`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {13.458835614025542`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {13.592367006650065`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {13.710150042306449`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {14.508657738524219`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {14.914122846632385`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {15.201804919084164`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{6.907755278982137, 
       FormBox["\"\"", TraditionalForm]}, {8.517193191416238, 
       FormBox["\"\"", TraditionalForm]}, {9.210340371976184, 
       FormBox["\"\"", TraditionalForm]}, {10.819778284410283`, 
       FormBox["\"\"", TraditionalForm]}, {11.512925464970229`, 
       FormBox["\"\"", TraditionalForm]}, {13.122363377404328`, 
       FormBox["\"\"", TraditionalForm]}, {13.815510557964274`, 
       FormBox["\"\"", TraditionalForm]}, {15.424948470398375`, 
       FormBox["\"\"", TraditionalForm]}, {7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.006367567650246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.294049640102028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.699514748210191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.85366542803745, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.987196820661973, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {9.104979856318357, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {9.903487552536127, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {10.308952660644293`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {10.596634733096073`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {11.002099841204238`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {11.156250521031495`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {11.289781913656018`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {11.407564949312402`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {12.206072645530174`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {12.611537753638338`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {12.89921982609012, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {13.304684934198283`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {13.458835614025542`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {13.592367006650065`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {13.710150042306449`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {14.508657738524219`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {14.914122846632385`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {15.201804919084164`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}},
  GridLines->{{6.907755278982137, 8.517193191416238, 9.210340371976184, 
    10.819778284410283`, 11.512925464970229`, 13.122363377404328`, 
    13.815510557964274`, 15.424948470398375`, 7.600902459542082, 
    8.006367567650246, 8.294049640102028, 8.699514748210191, 8.85366542803745,
     8.987196820661973, 9.104979856318357, 9.903487552536127, 
    10.308952660644293`, 10.596634733096073`, 11.002099841204238`, 
    11.156250521031495`, 11.289781913656018`, 11.407564949312402`, 
    12.206072645530174`, 12.611537753638338`, 12.89921982609012, 
    13.304684934198283`, 13.458835614025542`, 13.592367006650065`, 
    13.710150042306449`, 14.508657738524219`, 14.914122846632385`, 
    15.201804919084164`}, Automatic},
  ImageSize->{444.166666666667, Automatic},
  Method->{},
  PlotRange->{{6.907755278982137, 13.815510557964274`}, {0., 
   83.22643915330366}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{{{6.907755278982137, 
      FormBox["1000", TraditionalForm]}, {8.517193191416238, 
      FormBox["5000", TraditionalForm]}, {9.210340371976184, 
      FormBox[
       TemplateBox[{"1", 
         TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "Row", 
        DisplayFunction -> (RowBox[{#, "\[Times]", #2}]& ), 
        InterpretationFunction -> (RowBox[{"Row", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{#, ",", #2}], "}"}], ",", "\"\[Times]\""}], "]"}]& )], 
       TraditionalForm]}, {10.819778284410283`, 
      FormBox[
       TemplateBox[{"5", 
         TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "Row", 
        DisplayFunction -> (RowBox[{#, "\[Times]", #2}]& ), 
        InterpretationFunction -> (RowBox[{"Row", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{#, ",", #2}], "}"}], ",", "\"\[Times]\""}], "]"}]& )], 
       TraditionalForm]}, {11.512925464970229`, 
      FormBox[
       TemplateBox[{"1", 
         TemplateBox[{"10", "5"}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "Row", 
        DisplayFunction -> (RowBox[{#, "\[Times]", #2}]& ), 
        InterpretationFunction -> (RowBox[{"Row", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{#, ",", #2}], "}"}], ",", "\"\[Times]\""}], "]"}]& )], 
       TraditionalForm]}, {13.122363377404328`, 
      FormBox[
       TemplateBox[{"5", 
         TemplateBox[{"10", "5"}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "Row", 
        DisplayFunction -> (RowBox[{#, "\[Times]", #2}]& ), 
        InterpretationFunction -> (RowBox[{"Row", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{#, ",", #2}], "}"}], ",", "\"\[Times]\""}], "]"}]& )], 
       TraditionalForm]}, {13.815510557964274`, 
      FormBox[
       TemplateBox[{"1", 
         TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "Row", 
        DisplayFunction -> (RowBox[{#, "\[Times]", #2}]& ), 
        InterpretationFunction -> (RowBox[{"Row", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{#, ",", #2}], "}"}], ",", "\"\[Times]\""}], "]"}]& )], 
       TraditionalForm]}, {15.424948470398375`, 
      FormBox[
       TemplateBox[{"5", 
         TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "Row", 
        DisplayFunction -> (RowBox[{#, "\[Times]", #2}]& ), 
        InterpretationFunction -> (RowBox[{"Row", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{#, ",", #2}], "}"}], ",", "\"\[Times]\""}], "]"}]& )], 
       TraditionalForm]}, {7.600902459542082, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.006367567650246, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.294049640102028, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.699514748210191, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.85366542803745, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.987196820661973, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {9.104979856318357, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {9.903487552536127, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {10.308952660644293`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {10.596634733096073`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {11.002099841204238`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {11.156250521031495`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {11.289781913656018`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {11.407564949312402`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {12.206072645530174`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {12.611537753638338`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {12.89921982609012, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {13.304684934198283`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {13.458835614025542`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {13.592367006650065`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {13.710150042306449`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {14.508657738524219`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {14.914122846632385`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {15.201804919084164`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}, Automatic}]], "Output",
 CellChangeTimes->{3.507443356828125*^9, 3.507449529078125*^9, 
  3.507449650765625*^9, 3.507450014875*^9, 3.5074500864375*^9, 
  3.50745025125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"new", " ", "x", " ", "r", " ", "data"}], "*)"}]], "Input",
 CellChangeTimes->{{3.507933956015625*^9, 3.507933961515625*^9}, {
   3.507934196359375*^9, 3.507934202703125*^9}, 3.507934491296875*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"data2", "=", 
   RowBox[{"nxrData", "[", "2", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ff", "=", 
   RowBox[{"Freq23", "[", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5079340418125*^9, 3.507934065453125*^9}, {
  3.50793409815625*^9, 3.507934103671875*^9}}],

Cell[BoxData[
 RowBox[{"Dimensions", "[", "data2", "]"}]], "Input",
 CellChangeTimes->{{3.507934112890625*^9, 3.50793412221875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"pr", "=", 
   RowBox[{"data2", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "1"}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.507934131734375*^9, 3.5079341508125*^9}, 
   3.507934240359375*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pp1", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"pr", ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"Mesh", "\[Rule]", "Full"}], ",", 
    RowBox[{"MeshStyle", "\[Rule]", 
     RowBox[{"PointSize", "[", "Medium", "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.507934211015625*^9, 3.507934219*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGDQA2IQ7drl/ebu2zUOkhOXqKf49joEeU1+VH9ylUNqjfsZ
rm+THNYz68/cK7rSoW3RpiYL5mkOCxNcF5yIWO6w+fW0642CMx0c12pI1VQv
c/ihL/6tuWGmgx3D4edPhZY59DC+mVEvMsMhtu9S2b/1Sx3C2j75/Fee7iCz
R0xpW/BSh6Jly9R2Vk1zsOV4+V2ddanDzIVnd8lFT3UQYvRYVty9xEHIMHJx
VcwUh2uvS79cy13iwDdx8/nlyyc7XOu2POlnucQh4tmC4xcUJjvM+pZ03unL
Yoffjp7mryImOWyW+p5//thiB5vOHjc7pkkOEjtuRzvNWeww/fG21QtqJjr4
3z8c8sJ/scMHXR6NiNMTHN6fMikP01/s0LRO+EH3lAkOd8/uZfwoudhh7gPp
bEXJCQ5CmyqWbHizyOHsFpZWSe9+B6UCNwvjl4sc7v7hikt/1+ewdqNw0K2y
RQ6WUfz7t9zrcTj997vVzaWLHIqTb86ad73HIaBYaItwxyKHr40/t8tx9TiM
hjd9wxsANgZnww==
   "], {{{}, {}, 
     {Hue[0.67, 0.6, 0.6], 
      LineBox[{24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39,
        40, 41, 42, 43, 44, 45, 46}]}}, {
     {PointSize[Medium], 
      PointBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
        19, 20, 21, 22, 23}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{2400., 900.},
  ImageSize->{468.3333333333337, Automatic},
  PlotRange->{{2363.42640744728, 3702.9334434133802`}, {897.2649993412766, 
   1632.1288684485462`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.507934219625*^9, 3.507934242796875*^9}}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"xx", "=", 
   RowBox[{"pr", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"yy", "=", 
   RowBox[{"pr", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.507934274953125*^9, 3.507934300546875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"RR", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"ff", ",", "xx"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"XX", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"ff", ",", "yy"}], "}"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.507934320109375*^9, 3.507934322078125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogLinearPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"RR", ",", "XX"}], "}"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"Mesh", "\[Rule]", "Full"}], ",", 
   RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Frequency (Hz)\>\"", ",", "\"\<Resistance (\[CapitalOmega])\>\""}], 
     "}"}]}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGCIAWIQ7edslutyT8XBtcv7zd23axz2bwzr6OdUdQjymvyo
/uQqh+A5U6SrDFUd1jPrz9wrutLhipVvUGOYqsPCBNcFJyKWO2QL6PzhqFR1
cFyrIVVTvcwhbVrIj8SZqg52DIefPxVa5qC0qnj7ue2qDrF9l8r+rV/q4Fm/
tLLtiqqDzB4xpW3BSx2+K61ev/29qoMtx8vv6qxLHa6bBh7q5FRzEGL0WFbc
vcSh62pqjpySmsO116VfruUucUjniDk6yRLI77Y86We5xCFhQbUgQ4Caw6xv
Seedvix2OCwemVaTquawWep7/vljix1uFmvoSVepOUjsuB3tNGexQ9eN+RPf
9qo5+N8/HPLCf7FDs5/0OaaFag7vT5mUh+kvdggNdKnJ2KzmcPfsXsaPkosd
GnaUndI6CnTPpoolG94sctBfF7U25Jqag1KBm4Xxy0UOc+/P5vjwTM1h7Ubh
oFtlixzOLLW6yPpdzeH03+9WN5cucohetUhrHpu6Q0Cx0BbhjkUOsPCWnLhE
PcW3Fx7eqTXuZ7i+TYKHd9uiTU0WzNPg4b359bTrjYIz4eH9Q1/8W3PDTHh4
9zC+mVEvMgMe3mFtn3z+K0+Hh3fRsmVqO6umwcN75sKzu+SipyLC2zBycVXM
FHh4803cfH758snw8I54tuD4BYXJ8PD+7ehp/ipiEjy8bTp73OyYJsHDe/rj
basX1EyEh/cHXR6NiNMT4OHdtE74QfeUCfDwnvtAOltRcgI8vM9uYWmV9O6H
h/fdP1xx6e/64OFtGcW/f8u9Hnh4FyffnDXveg88vL82/twux9XjMJq+R9P3
cE7fAI3Skrg=
   "], {{{}, {}, 
     {Hue[0.67, 0.6, 0.6], 
      LineBox[{47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62,
        63, 64, 65, 66, 67, 68, 69}]}, 
     {Hue[0.9060679774997897, 0.6, 0.6], 
      LineBox[{70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85,
        86, 87, 88, 89, 90, 91, 92}]}}, {
     {Hue[0.67, 0.6, 0.6], 
      PointBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
        19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 
       36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46}]}, {}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{10.4341158035983, 897.2649993412766},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& )},
  Frame->True,
  FrameLabel->{
    FormBox["\"Frequency (Hz)\"", TraditionalForm], 
    FormBox["\"Resistance (\[CapitalOmega])\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {{{10.596634733096073`, 
       FormBox["40000.`", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {10.819778284410283`, 
       FormBox["50000.`", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.002099841204238`, 
       FormBox["60000.`", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.156250521031495`, 
       FormBox["70000.`", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.289781913656018`, 
       FormBox["80000.`", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.407564949312402`, 
       FormBox["90000.`", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.512925464970229`, 
       FormBox["100000.`", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {10.645424897265505`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.691944912900398`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.736396675471232`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.778956289890028`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.858998997563564`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.896739325546411`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.933106969717286`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.968198289528557`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.03488966402723, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.06663836234181, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.097410021008562`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.127262984158243`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.184421397998193`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.211820372186306`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.238488619268468`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.26446410567173, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.314474526246391`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.33857207782545, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.362102575235644`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.385092093460344`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.429543856031177`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.451050061252142`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.472103470449973`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.49272275765271, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.545341438708522`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.491274217438248`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}}, {{10.596634733096073`, 
       FormBox["\"\"", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {10.819778284410283`, 
       FormBox["\"\"", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.002099841204238`, 
       FormBox["\"\"", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.156250521031495`, 
       FormBox["\"\"", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.289781913656018`, 
       FormBox["\"\"", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.407564949312402`, 
       FormBox["\"\"", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.512925464970229`, 
       FormBox["\"\"", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {10.645424897265505`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.691944912900398`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.736396675471232`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.778956289890028`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.858998997563564`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.896739325546411`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.933106969717286`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.968198289528557`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.03488966402723, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.06663836234181, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.097410021008562`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.127262984158243`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.184421397998193`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.211820372186306`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.238488619268468`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.26446410567173, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.314474526246391`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.33857207782545, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.362102575235644`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.385092093460344`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.429543856031177`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.451050061252142`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.472103470449973`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.49272275765271, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.545341438708522`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.491274217438248`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}}}},
  GridLines->{{10.596634733096073`, 10.819778284410283`, 11.002099841204238`, 
    11.156250521031495`, 11.289781913656018`, 11.407564949312402`, 
    11.512925464970229`, 10.645424897265505`, 10.691944912900398`, 
    10.736396675471232`, 10.778956289890028`, 10.858998997563564`, 
    10.896739325546411`, 10.933106969717286`, 10.968198289528557`, 
    11.03488966402723, 11.06663836234181, 11.097410021008562`, 
    11.127262984158243`, 11.184421397998193`, 11.211820372186306`, 
    11.238488619268468`, 11.26446410567173, 11.314474526246391`, 
    11.33857207782545, 11.362102575235644`, 11.385092093460344`, 
    11.429543856031177`, 11.451050061252142`, 11.472103470449973`, 
    11.49272275765271, 10.545341438708522`, 10.491274217438248`}, Automatic},
  ImageSize->{532.5000000000009, Automatic},
  Method->{},
  PlotRange->{{10.4341158035983, 11.512925464970229`}, {897.2649993412766, 
   3702.9334434133802`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{{{10.596634733096073`, 
      FormBox["40000.`", TraditionalForm], {0.00625, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.25]}}, {10.819778284410283`, 
      FormBox["50000.`", TraditionalForm], {0.00625, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.25]}}, {11.002099841204238`, 
      FormBox["60000.`", TraditionalForm], {0.00625, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.25]}}, {11.156250521031495`, 
      FormBox["70000.`", TraditionalForm], {0.00625, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.25]}}, {11.289781913656018`, 
      FormBox["80000.`", TraditionalForm], {0.00625, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.25]}}, {11.407564949312402`, 
      FormBox["90000.`", TraditionalForm], {0.00625, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.25]}}, {11.512925464970229`, 
      FormBox["100000.`", TraditionalForm], {0.00625, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.25]}}, {10.645424897265505`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.691944912900398`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.736396675471232`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.778956289890028`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.858998997563564`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.896739325546411`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.933106969717286`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.968198289528557`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.03488966402723, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.06663836234181, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.097410021008562`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.127262984158243`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.184421397998193`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.211820372186306`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.238488619268468`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.26446410567173, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.314474526246391`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.33857207782545, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.362102575235644`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.385092093460344`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.429543856031177`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.451050061252142`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.472103470449973`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.49272275765271, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.545341438708522`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.491274217438248`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}}, Automatic}]], "Output",
 CellChangeTimes->{3.507934347890625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"Bode", " ", "chart"}], ","}], "*)"}]], "Input",
 CellChangeTimes->{{3.507934498*^9, 3.507934500015625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"z", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     SqrtBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"yy", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "2"], "+", 
       SuperscriptBox[
        RowBox[{"xx", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "2"]}]], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"Length", "[", "yy", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ang", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"ArcTan", "[", 
      RowBox[{
       RowBox[{"xx", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", 
       RowBox[{"yy", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "/", "Degree"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{"Length", "[", "yy", "]"}]}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.5079348388125*^9, 3.5079349309375*^9}, {
   3.50793499090625*^9, 3.5079350518125*^9}, {3.507935143875*^9, 
   3.507935157296875*^9}, 3.5079352004375*^9, {3.507935416640625*^9, 
   3.50793541721875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "14.209999999999988`", ",", "19.48999999999998`", ",", 
   "23.689999999999987`", ",", "28.229999999999976`", ",", 
   "29.559999999999967`", ",", "28.609999999999975`", ",", 
   "28.079999999999973`", ",", "27.78999999999997`", ",", 
   "26.929999999999968`", ",", "26.359999999999975`", ",", 
   "25.68999999999998`", ",", "25.30999999999997`", ",", 
   "24.689999999999976`", ",", "24.47999999999998`", ",", 
   "24.029999999999976`", ",", "23.49999999999997`", ",", 
   "23.369999999999976`", ",", "22.849999999999977`", ",", 
   "22.45999999999998`", ",", "22.239999999999977`", ",", 
   "21.34999999999998`", ",", "21.139999999999983`", ",", 
   "20.719999999999974`"}], "}"}]], "Output",
 CellChangeTimes->{3.507935201109375*^9, 3.50793541903125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"ZZ", "=", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"ff", ",", "z"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AA", "=", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"ff", ",", "ang"}], "}"}], "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.507934534046875*^9, 3.50793456409375*^9}, {
   3.507934628421875*^9, 3.507934637796875*^9}, {3.507934669625*^9, 
   3.50793467071875*^9}, 3.507934831671875*^9, 3.507935015203125*^9, {
   3.507935168203125*^9, 3.50793517740625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogLinearPlot", "[", 
  RowBox[{
   RowBox[{"{", "ZZ", "}"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"Mesh", "\[Rule]", "Full"}], ",", 
   RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Frequency (Hz)\>\"", ",", "\"\<|Z|(\[CapitalOmega])\>\""}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.507934642546875*^9, 3.50793464271875*^9}, {
  3.507934687703125*^9, 3.507934688109375*^9}, {3.50793495334375*^9, 
  3.507934956921875*^9}, {3.50793518178125*^9, 3.50793518246875*^9}, {
  3.507935225125*^9, 3.50793522553125*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGDQA2IQ7edslutyT8Wh9XXgjnnX1zrs3xjW0c+p6rBDDiiS
tcYheM4U6SpDVQf3h1Ui61JWO1yx8g1qDFN1iOk/9HVF/SqHbAGdPxyVqg7y
IANurHRImxbyI3GmqsOSAluu6yorHZRWFW8/t13VwcjY2HjzlBUOnvVLK9uu
qDoAVcu1Sq9w+K60ev3291DzJi93uG4aeKiTU83hEdC642+XOXRdTc2RU1Jz
+A8E9auXOaRzxBydZKnmcPirRgx//DKHhAXVggwBag5c1xcX2H5b6nBYPDKt
JlXNoVpknfvDXUsdbhZr6ElXqTkUAp2zuGKpQ9eN+RPf9qo5gJRz8S91aPaT
Pse0UM3hm0ZMv9OzJQ6hgS41GZvVHIDO0YjZtcShYUfZKa2jag5LgcrDq5Y4
6K+LWhtyTc3hDBD45C1xmHt/NseHZxDzlS8vdjiz1Ooi63eo/L/FDtGrFmnN
Y1OHyF9Y7DAa3vQNbwCWhlK/
   "], {{{}, {}, 
     {Hue[0.67, 0.6, 0.6], 
      LineBox[{24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39,
        40, 41, 42, 43, 44, 45, 46}]}}, {
     {Hue[0.67, 0.6, 0.6], 
      PointBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
        19, 20, 21, 22, 23}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{10.4341158035983, 2536.07},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& )},
  Frame->True,
  FrameLabel->{
    FormBox["\"Frequency (Hz)\"", TraditionalForm], 
    FormBox["\"|Z|(\[CapitalOmega])\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {{{10.596634733096073`, 
       FormBox["40000.`", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {10.819778284410283`, 
       FormBox["50000.`", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.002099841204238`, 
       FormBox["60000.`", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.156250521031495`, 
       FormBox["70000.`", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.289781913656018`, 
       FormBox["80000.`", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.407564949312402`, 
       FormBox["90000.`", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.512925464970229`, 
       FormBox["100000.`", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {10.645424897265505`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.691944912900398`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.736396675471232`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.778956289890028`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.858998997563564`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.896739325546411`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.933106969717286`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.968198289528557`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.03488966402723, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.06663836234181, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.097410021008562`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.127262984158243`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.184421397998193`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.211820372186306`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.238488619268468`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.26446410567173, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.314474526246391`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.33857207782545, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.362102575235644`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.385092093460344`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.429543856031177`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.451050061252142`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.472103470449973`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.49272275765271, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.545341438708522`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.491274217438248`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}}, {{10.596634733096073`, 
       FormBox["\"\"", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {10.819778284410283`, 
       FormBox["\"\"", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.002099841204238`, 
       FormBox["\"\"", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.156250521031495`, 
       FormBox["\"\"", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.289781913656018`, 
       FormBox["\"\"", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.407564949312402`, 
       FormBox["\"\"", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.512925464970229`, 
       FormBox["\"\"", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {10.645424897265505`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.691944912900398`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.736396675471232`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.778956289890028`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.858998997563564`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.896739325546411`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.933106969717286`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.968198289528557`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.03488966402723, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.06663836234181, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.097410021008562`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.127262984158243`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.184421397998193`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.211820372186306`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.238488619268468`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.26446410567173, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.314474526246391`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.33857207782545, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.362102575235644`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.385092093460344`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.429543856031177`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.451050061252142`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.472103470449973`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.49272275765271, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.545341438708522`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.491274217438248`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}}}},
  GridLines->{{10.596634733096073`, 10.819778284410283`, 11.002099841204238`, 
    11.156250521031495`, 11.289781913656018`, 11.407564949312402`, 
    11.512925464970229`, 10.645424897265505`, 10.691944912900398`, 
    10.736396675471232`, 10.778956289890028`, 10.858998997563564`, 
    10.896739325546411`, 10.933106969717286`, 10.968198289528557`, 
    11.03488966402723, 11.06663836234181, 11.097410021008562`, 
    11.127262984158243`, 11.184421397998193`, 11.211820372186306`, 
    11.238488619268468`, 11.26446410567173, 11.314474526246391`, 
    11.33857207782545, 11.362102575235644`, 11.385092093460344`, 
    11.429543856031177`, 11.451050061252142`, 11.472103470449973`, 
    11.49272275765271, 10.545341438708522`, 10.491274217438248`}, Automatic},
  ImageSize->{509.1666666666666, Automatic},
  Method->{},
  PlotRange->{{10.4341158035983, 11.512925464970229`}, {2536.07, 3819.81}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{{{10.596634733096073`, 
      FormBox["40000.`", TraditionalForm], {0.00625, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.25]}}, {10.819778284410283`, 
      FormBox["50000.`", TraditionalForm], {0.00625, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.25]}}, {11.002099841204238`, 
      FormBox["60000.`", TraditionalForm], {0.00625, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.25]}}, {11.156250521031495`, 
      FormBox["70000.`", TraditionalForm], {0.00625, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.25]}}, {11.289781913656018`, 
      FormBox["80000.`", TraditionalForm], {0.00625, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.25]}}, {11.407564949312402`, 
      FormBox["90000.`", TraditionalForm], {0.00625, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.25]}}, {11.512925464970229`, 
      FormBox["100000.`", TraditionalForm], {0.00625, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.25]}}, {10.645424897265505`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.691944912900398`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.736396675471232`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.778956289890028`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.858998997563564`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.896739325546411`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.933106969717286`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.968198289528557`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.03488966402723, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.06663836234181, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.097410021008562`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.127262984158243`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.184421397998193`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.211820372186306`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.238488619268468`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.26446410567173, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.314474526246391`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.33857207782545, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.362102575235644`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.385092093460344`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.429543856031177`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.451050061252142`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.472103470449973`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.49272275765271, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.545341438708522`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.491274217438248`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}}, Automatic}]], "Output",
 CellChangeTimes->{3.50793464453125*^9, 3.5079346889375*^9, 
  3.50793502290625*^9, 3.507935183*^9, 3.507935226421875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogLinearPlot", "[", 
  RowBox[{
   RowBox[{"{", "AA", "}"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"Mesh", "\[Rule]", "Full"}], ",", 
   RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Frequency (Hz)\>\"", ",", "\"\<\[Angle]Z(\[Degree])\>\""}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.50793523878125*^9, 3.507935240359375*^9}, {
  3.507935279296875*^9, 3.507935304484375*^9}, {3.507935347953125*^9, 
  3.50793536990625*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGDQA2IQ7edslutyT8XhaeAOudZsHYf9G8M6+jlVHSy4ri8u
qDV2CJ4zRbrKUNUh1xYosMHc4YqVb1BjmKpDicg694dWNg7ZAjp/OCpVHdoO
fdWI6bd1SJsW8iNxpqpDaD9QYI6Ng9Kq4u3ntqs68AKVV4nYOHjWL61su6Lq
wAQ03vaUtcN3pdXrt79XdVgKkn5n5XDdNPBQJ6caRH+MlUPX1dQcOSU1h2yw
/ZYO6RwxRydZqjm0g6T9LR0SFlQLMgSoOWSB5S0cDotHptWkqjmUgtxXZeFw
s1hDT7pKzcERaPw6dguHrhvzJ77tVXP48R8I6s0dmv2kzzEtVHOQaH0duCPO
3CE00KUmY7Oaw+SZQHDTzKFhR9kpraNqDh+AvjtUauagvy5qbcg1NQdzUPjY
mjnMvT+b48MzNYcpIPWRpg5nllpdZP2u5jC/AOggZVOH6FWLtOaxqTtslANZ
YOIwGt70DW8A9Ec5dQ==
   "], {{{}, {}, 
     {Hue[0.67, 0.6, 0.6], 
      LineBox[{24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39,
        40, 41, 42, 43, 44, 45, 46}]}}, {
     {Hue[0.67, 0.6, 0.6], 
      PointBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
        19, 20, 21, 22, 23}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{10.4341158035983, 14.209999999999988`},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& )},
  Frame->True,
  FrameLabel->{
    FormBox["\"Frequency (Hz)\"", TraditionalForm], 
    FormBox["\"\[Angle]Z(\[Degree])\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {{{10.596634733096073`, 
       FormBox["40000.`", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {10.819778284410283`, 
       FormBox["50000.`", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.002099841204238`, 
       FormBox["60000.`", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.156250521031495`, 
       FormBox["70000.`", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.289781913656018`, 
       FormBox["80000.`", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.407564949312402`, 
       FormBox["90000.`", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.512925464970229`, 
       FormBox["100000.`", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {10.645424897265505`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.691944912900398`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.736396675471232`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.778956289890028`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.858998997563564`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.896739325546411`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.933106969717286`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.968198289528557`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.03488966402723, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.06663836234181, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.097410021008562`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.127262984158243`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.184421397998193`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.211820372186306`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.238488619268468`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.26446410567173, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.314474526246391`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.33857207782545, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.362102575235644`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.385092093460344`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.429543856031177`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.451050061252142`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.472103470449973`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.49272275765271, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.545341438708522`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.491274217438248`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}}, {{10.596634733096073`, 
       FormBox["\"\"", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {10.819778284410283`, 
       FormBox["\"\"", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.002099841204238`, 
       FormBox["\"\"", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.156250521031495`, 
       FormBox["\"\"", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.289781913656018`, 
       FormBox["\"\"", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.407564949312402`, 
       FormBox["\"\"", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {11.512925464970229`, 
       FormBox["\"\"", TraditionalForm], {0.00625, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.25]}}, {10.645424897265505`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.691944912900398`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.736396675471232`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.778956289890028`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.858998997563564`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.896739325546411`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.933106969717286`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.968198289528557`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.03488966402723, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.06663836234181, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.097410021008562`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.127262984158243`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.184421397998193`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.211820372186306`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.238488619268468`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.26446410567173, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.314474526246391`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.33857207782545, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.362102575235644`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.385092093460344`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.429543856031177`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.451050061252142`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.472103470449973`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {11.49272275765271, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.545341438708522`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}, {10.491274217438248`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        GrayLevel[0.], 
        AbsoluteThickness[0.125]}}}}},
  GridLines->{{10.596634733096073`, 10.819778284410283`, 11.002099841204238`, 
    11.156250521031495`, 11.289781913656018`, 11.407564949312402`, 
    11.512925464970229`, 10.645424897265505`, 10.691944912900398`, 
    10.736396675471232`, 10.778956289890028`, 10.858998997563564`, 
    10.896739325546411`, 10.933106969717286`, 10.968198289528557`, 
    11.03488966402723, 11.06663836234181, 11.097410021008562`, 
    11.127262984158243`, 11.184421397998193`, 11.211820372186306`, 
    11.238488619268468`, 11.26446410567173, 11.314474526246391`, 
    11.33857207782545, 11.362102575235644`, 11.385092093460344`, 
    11.429543856031177`, 11.451050061252142`, 11.472103470449973`, 
    11.49272275765271, 10.545341438708522`, 10.491274217438248`}, Automatic},
  ImageSize->{507.50000000000034`, Automatic},
  Method->{},
  PlotRange->{{10.4341158035983, 11.512925464970229`}, {14.209999999999988`, 
   29.559999999999967`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{{{10.596634733096073`, 
      FormBox["40000.`", TraditionalForm], {0.00625, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.25]}}, {10.819778284410283`, 
      FormBox["50000.`", TraditionalForm], {0.00625, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.25]}}, {11.002099841204238`, 
      FormBox["60000.`", TraditionalForm], {0.00625, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.25]}}, {11.156250521031495`, 
      FormBox["70000.`", TraditionalForm], {0.00625, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.25]}}, {11.289781913656018`, 
      FormBox["80000.`", TraditionalForm], {0.00625, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.25]}}, {11.407564949312402`, 
      FormBox["90000.`", TraditionalForm], {0.00625, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.25]}}, {11.512925464970229`, 
      FormBox["100000.`", TraditionalForm], {0.00625, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.25]}}, {10.645424897265505`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.691944912900398`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.736396675471232`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.778956289890028`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.858998997563564`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.896739325546411`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.933106969717286`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.968198289528557`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.03488966402723, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.06663836234181, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.097410021008562`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.127262984158243`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.184421397998193`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.211820372186306`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.238488619268468`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.26446410567173, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.314474526246391`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.33857207782545, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.362102575235644`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.385092093460344`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.429543856031177`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.451050061252142`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.472103470449973`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {11.49272275765271, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.545341438708522`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}, {10.491274217438248`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       GrayLevel[0.], 
       AbsoluteThickness[0.125]}}}, Automatic}]], "Output",
 CellChangeTimes->{
  3.5079352414375*^9, 3.507935351015625*^9, {3.507935423328125*^9, 
   3.507935447625*^9}}]
}, Open  ]]
},
WindowSize->{863, 719},
WindowMargins->{{68, Automatic}, {11, Automatic}},
ShowSelection->True,
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3507470041-2587848"->{
  Cell[3441, 93, 191, 4, 45, "Print",
   CellTags->"Info3507470041-2587848"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3507470041-2587848", 111716, 2480}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 150, 3, 39, "Input"],
Cell[720, 27, 574, 11, 25, "Message"],
Cell[1297, 40, 574, 11, 28, "Message"],
Cell[1874, 53, 574, 11, 25, "Message"],
Cell[2451, 66, 628, 11, 22, "Message"]
}, Open  ]],
Cell[3094, 80, 205, 5, 67, "Input"],
Cell[CellGroupData[{
Cell[3324, 89, 114, 2, 39, "Input"],
Cell[3441, 93, 191, 4, 45, "Print",
 CellTags->"Info3507470041-2587848"]
}, Open  ]],
Cell[3647, 100, 241, 5, 39, "Input"],
Cell[CellGroupData[{
Cell[3913, 109, 934, 24, 148, "Input"],
Cell[4850, 135, 263, 6, 38, "Output"],
Cell[5116, 143, 338, 8, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5491, 156, 1212, 34, 148, "Input"],
Cell[6706, 192, 5900, 102, 176, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12643, 299, 1939, 60, 148, "Input"],
Cell[14585, 361, 1583, 32, 299, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16205, 398, 514, 12, 67, "Input"],
Cell[16722, 412, 7306, 129, 328, "Output"]
}, Open  ]],
Cell[24043, 544, 183, 4, 39, "Input"],
Cell[24229, 550, 471, 13, 67, "Input"],
Cell[CellGroupData[{
Cell[24725, 567, 92, 1, 39, "Input"],
Cell[24820, 570, 576, 10, 114, "Output"]
}, Open  ]],
Cell[25411, 583, 136, 2, 39, "Input"],
Cell[CellGroupData[{
Cell[25572, 589, 425, 11, 39, "Input"],
Cell[26000, 602, 5667, 102, 247, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31704, 709, 381, 9, 39, "Input"],
Cell[32088, 720, 2212, 41, 417, "Output"]
}, Open  ]],
Cell[34315, 764, 704, 19, 121, "Input"],
Cell[CellGroupData[{
Cell[35044, 787, 938, 20, 121, "Input"],
Cell[35985, 809, 17475, 354, 382, "Output"]
}, Open  ]],
Cell[53475, 1166, 242, 4, 39, "Input"],
Cell[53720, 1172, 318, 8, 67, "Input"],
Cell[54041, 1182, 132, 2, 39, "Input"],
Cell[54176, 1186, 252, 7, 39, "Input"],
Cell[CellGroupData[{
Cell[54453, 1197, 350, 8, 67, "Input"],
Cell[54806, 1207, 1357, 29, 375, "Output"]
}, Open  ]],
Cell[56178, 1239, 371, 11, 67, "Input"],
Cell[56552, 1252, 385, 11, 67, "Input"],
Cell[CellGroupData[{
Cell[56962, 1267, 499, 13, 94, "Input"],
Cell[57464, 1282, 16965, 360, 436, "Output"]
}, Open  ]],
Cell[74444, 1645, 160, 4, 39, "Input"],
Cell[CellGroupData[{
Cell[74629, 1653, 1093, 33, 88, "Input"],
Cell[75725, 1688, 799, 15, 89, "Output"]
}, Open  ]],
Cell[76539, 1706, 639, 16, 94, "Input"],
Cell[CellGroupData[{
Cell[77203, 1726, 710, 15, 94, "Input"],
Cell[77916, 1743, 16383, 350, 419, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[94336, 2098, 621, 14, 94, "Input"],
Cell[94960, 2114, 16410, 352, 427, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
